This meme uses funny yet relatable cat images to express how I feel when I am coding.
library(magick)
###### creation of white squares with text
whiteSquare1 <- image_blank(width = 200,
height = 200,
color = "#f6f3ee")%>%
image_annotate(text = "Me expecting my code to \nfail for the 23857th\n time again",
color = "#000000",
size = 17,
gravity = "center"
)
#whiteSquare1
whiteSquare2 <- image_blank(width = 200,
height = 200,
color = "#f6f3ee")%>%
image_annotate(text = "The code finally works",
color = "#000000",
size = 17,
gravity = "center"
)
# whiteSquare2
###### creation of cat images
sadCat <- image_read("https://i.pinimg.com/564x/09/25/a2/0925a2756ba53cff5b662c8518af2728.jpg")%>%
image_scale(200)%>%
image_flop()
#sadCat
sadShoutingCat <- image_read("https://i.pinimg.com/564x/bd/d7/87/bdd787a0ed233b5af0b80ae6dd383e85.jpg")%>%
image_scale(300)%>%
image_crop("200x200+50")
#sadShoutingCat
###### adding and stacking images together
firstRow <- c(sadCat, whiteSquare1)%>%
image_append()
secondRow <- c(sadShoutingCat, whiteSquare2)%>%
image_append()
catMeme <- c(firstRow, secondRow)%>%
image_append(stack=TRUE)
##### view meme
catMeme
###### saving meme as file
image_write(catMeme, "cat_Meme.png")
This meme shows the stages of cuteness aggression whenever I see a very cute cat.